home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SuperHack
/
SuperHack CD.bin
/
SCRIPTZ
/
REACTOR.ZIP
/
ReAcToR
/
capskick.txt
< prev
next >
Wrap
Text File
|
1997-01-28
|
2KB
|
39 lines
paste this into you remote events, put it last, because it uses ON TEXT:*: which means that it
traps every ON TEXT event it encounters, so any ON TEXT events after it will never trigger.
Also channel flood control scripts have to use the same routine, so you can't run both in the
same client with different events.
-------8<-------------cut here ----------------8<--------------cut here------------8<---------
+1@:ON TEXT:*:#:{
set -q %x 1
set -q %text $len($parms)
if %text < 6 { goto end }
:letters
if %x > %text { goto kicker }
if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto letters }
else { goto end }
:kicker
ban -u8 $chan $nick 3
notice $nick CAPSLOCK detected, Please don't Talk in all UPPER CASE, it's considered rude (this ban will be lifted in a moment)
onotice $chan [ops] capslock warning sent to $nick
echo 5 $active [ops] capslock warning sent to $nick
:end
}
1@:ON ACTION:*:#:{
set -q %x 1
set -q %text $len($parms)
if %text < 6 { goto end }
:letters
if %x > %text { goto kicker }
if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto letters }
else { goto end }
:kicker
ban -u8 $chan $nick 3
notice $nick CAPSLOCK detected, Please don't Talk in all UPPER CASE, it's considered rude (this ban will be lifted in a moment)
onotice $chan [ops] capslock warning sent to $nick
echo 5 $active [ops] capslock warning sent to $nick
:end
rem Another Despayre Production ⌐1996
}